home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 April / Software of the Month - Ultimate Collection Shareware 260.iso / pc / Business.dir / 00001_Script_1 next >
Text File  |  1999-02-01  |  4KB  |  188 lines
  1.  
  2. on startMovie
  3.   
  4.   
  5.   global REQUIREMENTS
  6.   
  7.   set REQUIREMENTS to the memberNum of member "REQUIRETEXT"
  8.   
  9.   global  LINECLICK,LASTCLICK 
  10.   set LASTCLICK to 1
  11.   set LINECLICK to 1
  12.   set the forecolor of member "progDisplay" to 255 -- set text to black
  13.   set the forecolor of line LINECLICK of member "progDisplay" to 0
  14.   setpath()
  15.   --* This declares the variables for the finger cursor. *
  16.   
  17.   global FINGER, FINGERMASK,MAGNIFY, MAGNIFY2, MAGNIFYMASK
  18.   set FINGER to the memberNum of member "Finger1"
  19.   set FINGERMASK to the memberNum of member "Finger2"
  20.   set MAGNIFY to the memberNum of member "MAGGLASS"
  21.   set MAGNIFY2 to the memberNum of member "MAGGLASS2"
  22.   set MAGNIFYMASK to the memberNum of member "MAGGLASS1"
  23.   glowClear()
  24.   
  25. end
  26.  
  27.  
  28. --* This handler hides/shows the glow images. eg: glow(5,TRUE) *
  29.  
  30. on glow WHICHSPRITE, TRUEORFALSE
  31.   set the visible of sprite WHICHSPRITE to TRUEORFALSE
  32. end glow
  33.  
  34. --* TURN OF ALL GLOWS ON START
  35. on glowClear
  36.   repeat with i = 19 to 36
  37.     glow(i)
  38.   end repeat
  39. end
  40.  
  41. --* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
  42.  
  43. on textglow WHICHMEMBER, COLORNUMBER
  44.   set the foreColor of member WHICHMEMBER to COLORNUMBER  
  45. end textglow
  46.  
  47.  
  48. --* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
  49. --on mouseEnter
  50. --  if not count(the windowList) then
  51. --    doRollover(52)
  52. --  end if
  53. --end
  54. --
  55. --
  56. --on mouseLeave
  57. --  if not count(the windowList) then
  58. --    doRollout(52)
  59. --  end if
  60. --end
  61.  
  62.  
  63.  
  64. --* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
  65.  
  66. on openMIAW MYWINDOW
  67.   set myRect=the rect of window MYWINDOW
  68.   set myStage=the rect of the Stage
  69.   set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  70.   set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  71.   set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  72.   set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  73.   set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  74.   set the rect of window MYWINDOW=myNewRect
  75.   set the windowType of window MYWINDOW to 2
  76.   open window MYWINDOW
  77. end openMIAW
  78.  
  79.  
  80. --* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *
  81.  
  82. on doRollover NUMSPRITE,NUMSOUND
  83.   glow(numsprite,TRUE)
  84.   --  global finger,fingermask
  85.   --  cursor[finger,fingermask]  
  86.   case  NUMSOUND of      
  87.     1: puppetsound 1, "Scissors"
  88.     2: puppetsound 1, "Butane"
  89.     3: puppetsound 1, "Scissors"
  90.     4: puppetsound 1, "Scissors"
  91.   end case 
  92.   updatestage
  93. end
  94.  
  95.  
  96. -- set which cursor to use
  97.  
  98. on mycursor WHICHCURSOR
  99.   
  100.   global finger,fingermask,MAGNIFY,MAGNIFY2,MAGNIFYMASK
  101.   
  102.   case  WHICHCURSOR of      
  103.     1: cursor[finger,fingermask]  
  104.     2: cursor [MAGNIFY,MAGNIFYMASK]
  105.     3: cursor [MAGNIFY2,MAGNIFYMASK]      
  106.   end case 
  107.   updatestage
  108.   
  109. end
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116. --* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
  117. on doRollout numsprite
  118.   glow(numsprite,FALSE)
  119.   cursor 0
  120. end
  121.  
  122. --* PLAYS A CLICK SOUND
  123.  
  124. on doClick
  125.   puppetsound 1,"close"
  126.   updateStage
  127. end
  128.  
  129.  
  130. on doZoomout numsprite,soundwait
  131.   puppetsound 1, "close"  
  132.   if soundwait then
  133.     repeat while soundbusy (1)
  134.     end repeat
  135.     set soundwait to FALSE
  136.   end if
  137.   glow(numsprite, TRUE)
  138.   global MAGNIFY2, MAGNIFYMASK
  139.   cursor [MAGNIFY2,MAGNIFYMASK]
  140.   updatestage
  141. end
  142.  
  143. on doZoomin numsprite,soundwait
  144.   puppetsound 1, "close"  
  145.   if soundwait then
  146.     repeat while soundbusy (1)
  147.     end repeat
  148.     set soundwait to FALSE
  149.   end if
  150.   glow(numsprite, TRUE)
  151.   global MAGNIFY, MAGNIFYMASK
  152.   cursor [MAGNIFY,MAGNIFYMASK]
  153.   updatestage
  154. end
  155.  
  156.  
  157. on setpath
  158.   Global SETUPPATH95,LINECLICK
  159.   
  160.   case LINECLICK of
  161.       
  162.     1:set SETUPPATH95 to line 1 of Field "SETUPS" 
  163.       
  164.     2:set SETUPPATH95 to line 2 of Field "SETUPS"
  165.       
  166.     3:set SETUPPATH95 to line 3 of Field "SETUPS"
  167.       
  168.     4:set SETUPPATH95 to line 4 of Field "SETUPS"
  169.       
  170.     5:set SETUPPATH95 to line 5 of Field "SETUPS"
  171.       
  172.     6:set SETUPPATH95 to line 6 of Field "SETUPS"
  173.       
  174.       
  175.   end case
  176.   
  177. end
  178.  
  179.  
  180.  
  181.  
  182. -- Delays for x number of seconds
  183. on timedelay SECONDS 
  184.   startTimer
  185.   repeat while the timer < SECONDS * 60
  186.     nothing
  187.   end repeat    
  188. end